home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 September
/
64er_Magazin_90-09_1990_Markt__Technik_de_Side_A.d64
/
apfel + julia
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
61 lines
1000 rem mandelbrot/juliamengen-generator
1010 rem (c) 1990 by bernd wiebelt
1020 rem
1030 if a=0 then a=1:load "graphtool.obj",8,1
1040 if a=1 then a=2:load "mandelass.obj",8,1
1050 dim o1(320):dim o2(320)
1060 ya=199:xa=319:rem chr$rafikaufloesung
1070 print"[147]m)andelrot oder j)uliamengen
1080 [161]a$:[139]a$[178]"" [176] (a$[179][177]"m" [175] a$[179][177]"j") [167]1080
1090 [139]a$[178]"m" [167] mj[178]0
1100 [139]a$[178]"j" [167] mj[178]1
1110 [133]"realmin : ";ri
1120 [133]"realmax : ";ra
1130 [133]"imagmin : ";ii
1140 [133]"imagmax : ";ia
1150 [133]"maximale rekursionstiefe: ";mt
1160 xs[178](ra[171]ri)[173]xa:ys[178](ia[171]ii)[173]ya:[143] transformationskonstanten berechnen
1170 sy[178]0:[139] [182](ii)[178][182](ia) [167] sy[178]1:[143] symmetriecheck !
1180 [139] mj[178]0 [167] 1210
1190 [133]"reeller c-teil : ";cr
1200 [133]"imaginaerer c-teil : ";ci
1210 [158] 49152:[158] 49158,0,1: [143] grafik-initialisierung
1220 [129] x[178]0 [164] xa:o1(x)[178]mt:o2(x)[178]mt:[130]
1230 [129] y[178]0 [164] ya:[143] punkt fuer punkt untersuchen
1240 l1[178]mt:l2[178]mt
1250 [129] x[178]0 [164] xa
1260 r[178]ri[170]x[172]xs:i[178]ii[170]y[172]ys
1270 [139] mj[178]0 [167] [158] 50688,0,0,r,i,4,mt:[143] mandelbrotrekursionen durchfuehren
1280 [139] mj[178]1 [167] [158] 50688,r,i,cr,ci,4,mt:[143] julia-rekursionen durchfuehren
1290 t[178][194](2)
1300 [139] t[179]mt [137] 1340:[143] maximale rekursionstiefe erreicht?
1310 [158]49167,x,y:[139] sy[178]0 [137] 1340
1320 [139] mj[178]0 [167] [158] 49167,x,ya[171]y
1330 [139] mj[178]1 [167] [158] 49167,xa[171]x,ya[171]y
1340 [139] (t[177][178]l1) [176] (l2[177][178]l1) [137] 1390:[143] linken und rechten nachbarpunkt testen
1350 [158] 49167,x[171]1,y
1360 [139] sy[178]0 [137] 1390
1370 [139] mj[178]0 [167] [158] 49167,x[171]1,ya[171]y
1380 [139] mj[178]1 [167] [158] 49167,xa[171]x[170]1,ya[171]y
1390 l2[178]l1:l1[178]t
1400 [139] (t[177][178]o1(x)) [176] (o2(x)[177][178]o1(x)) [137] 1450:[143] unt. und ob. punkt testen
1410 [158] 49167,x,y[171]1
1420 [139] sy[178]0 [137] 1450
1430 [139] mj[178]0 [167] [158] 49167,x,ya[171]y[170]1
1440 [139] mj[178]1 [167] [158] 49167,xa[171]x,ya[171]y[170]1
1450 o2(x)[178]o1(x):o1(x)[178]t
1460 [130] x:[139] sy[178]1 [175] y[177]ya[173]2 [167] y[178]ya
1470 [130] y
1480 [161] a$:[139] a$[178]"" [167] 1480
1490 [158]49155:[153]"loadbild abspeichern (j/n) ?"
1500 [161] a$:[139] a$[178]"" [167] 1500
1510 [139] a$[179][177]"j" [137] 1070
1520 [133] "filename : ";b$:[158]50694,b$,8
1530 [153]"das bild kann durch folgende"
1540 [153]"anweisungen wieder angezeigt werden:"
1550 [153]"sys 49158,0,1"
1560 [153]"sys 50691,";[199](34);b$;[199](34);",8"
1570 [153]"sys 49152"
1580 [161]a$:[139] a$[178]"" [167] 1580
1590 [137] 1070